home *** CD-ROM | disk | FTP | other *** search
/ Floppyshop 2 / Floppyshop - 2.zip / Floppyshop - 2.iso / diskmags / 3565-4.665 / dmg-4180 / source.4u / riley.ben / 32x_scrl.bas (.txt) < prev    next >
Atari STOS Basic  |  1987-04-21  |  22KB  |  82 lines
  1. 10 REM #########################
  2. 100 FADE
  3. 110 SCROLL
  4. 120 REM 
  5. 130 REM ----> Routine to create preshifts of each character
  6. 140 REM 
  7. 150 DIM
  8. 160 REM 
  9. 170 REM ----> This is for a blank space
  10. 180 REM 
  11. 190 VARNAME
  12. 20 REM 
  13. 200 VARNAME
  14. 210 VARNAME
  15. 220 VARNAME
  16. 230 VARNAME
  17. 240 REM 
  18. 250 REM ----> This is for all the other characters
  19. 260 REM 
  20. 270 FOR
  21. 280 SPRITE
  22. 290 UPDATE
  23. 30 REM   VERY FAST SCROLLTEXT
  24. 300 WAIT VBL
  25. 310 VARNAME
  26. 320 SPRITE
  27. 330 UPDATE
  28. 340 WAIT VBL
  29. 350 VARNAME
  30. 360 SPRITE
  31. 370 UPDATE
  32. 380 WAIT VBL
  33. 390 VARNAME
  34. 40 REM ROUTINE THAT USES SPRITES
  35. 400 SPRITE
  36. 410 UPDATE
  37. 420 WAIT VBL
  38. 430 VARNAME
  39. 440 SPRITE
  40. 450 UPDATE
  41. 460 WAIT VBL
  42. 470 VARNAME
  43. 480 NEXT
  44. 490 SPRITE
  45. 50 REM  ALL CODE BY BEN OF FRS!
  46. 500 AUTO BACK
  47. 510 REM 
  48. 520 REM ----> Get the sprite bank palette
  49. 530 REM 
  50. 540 LOKE
  51. 550 REM 
  52. 560 REM ----> This is the text
  53. 570 REM 
  54. 580 VARNAME
  55. 590 VARNAME
  56. 60 REM    WITH TEXT BY BENCH
  57. 600 VARNAME
  58. 610 VARNAME
  59. 620 REM 
  60. 630 REM ----> The scrolling and printing routine
  61. 640 REM 
  62. 650 LOGIC
  63. 660 FOR
  64. 670 VARNAME
  65. 680 IF
  66. 690 VARNAME
  67. 70 REM 
  68. 700 IF
  69. 710 FOR
  70. 720 SCREEN$
  71. 730 SCREEN SWAP
  72. 740 DOKE
  73. 750 WAIT VBL
  74. 760 AREG
  75. 770 CALL
  76. 780 CLS
  77. 790 NEXT
  78. 80 REM #########################
  79. 800 NEXT
  80. 810 GOTO
  81. 90 REM 
  82.